function [nu,M] = Ry(U)
% R - 用守恒变量U计算A的右特征向量矩阵
%   
    [rho,u,v,p]= U2Variables(U);
    E = U(4);
    M = zeros(4);
    H = (E+p)/rho;
    a = sqrt(1.4*p/rho);
    nu=[v-a;
        v;
        v;
        v+a;
       ];

    M = [1,0,1,1;
         u,1,u,u;
         v-a,0,v,v+a;
         H-a*v,u,(v^2+u^2)/2,H+a*v];
end
